﻿Module Module1

    Sub Main()
        Dim array_libros(5) As Libros

        'numero=miArray.GetLowerBound();

        Dim i As Integer = 0
     
        While i < 5
            Console.WriteLine("Indique título del libro: " & i + 1)
            array_libros(i).titulo = Console.ReadLine()
            Console.WriteLine("Indique autor del libro: " & i + 1)
            array_libros(i).autor = Console.ReadLine()
            Console.WriteLine("Indique editorial del libro: " & i + 1)
            array_libros(i).editorial = Console.ReadLine()
            Console.WriteLine("Indique año del libro: " & i + 1)
            array_libros(i).anno = Console.ReadLine()
            i = (i + 1)
        End While
        i = 0

        While i < 5

            Console.WriteLine("Datos del libro: " & i + 1)
            Console.WriteLine(array_libros(i).titulo)
            Console.WriteLine(array_libros(i).autor)
            Console.WriteLine(array_libros(i).editorial)
            Console.WriteLine(array_libros(i).anno)
            i = (i + 1)
        End While
        Console.ReadLine()

    End Sub
    'NO ES NECESARTIO PONER LAS STRUCTURE ANTES DEL SUB MAIN!!!!!!!

    Structure Libros
        Dim titulo As String
        Dim autor As String
        Dim editorial As String
        Dim anno As Integer
    End Structure


End Module
